(rmail-bury): Fix call to set-window-buffer.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e11d40a70974aec396288ce1d82dfd29780564e8..6658185005dc5565e74e9cd61d05f1dd3ec63e02 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1788,7 +1788,7 @@ the body of the original message; otherwise copy the current message."
     (if (rmail-summary-exists)
        (let (window)
          (while (setq window (get-buffer-window rmail-summary-buffer))
-           (set-window-buffer (other-buffer rmail-summary-buffer)))
+           (set-window-buffer window (other-buffer rmail-summary-buffer)))
          (bury-buffer rmail-summary-buffer)))
     (switch-to-buffer (other-buffer (current-buffer)))
     (bury-buffer rmail-buffer)))